home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ NoScape Navigator Settings.xpl < prev    next >
Text File  |  2001-01-22  |  1KB  |  42 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Netscape Navigator"
  5. "NAME"="Navigator Settings"
  6. "VERSION"="1.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable blinking text"
  9. "DESCRIPTION 1"="If you hate the blinking text that sometimes appears inside Navigator, disable the first option."
  10. "DESCRIPTION 2"="NOTE: This will only work on versions of Netscape prior to 4.x."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15.  
  16.  
  17. sP="HKCU\Software\Netscape\Netscape Navigator\Settings\"
  18. sV1="Blinking"
  19. Sub Plugin_Initialize 
  20.  if RegPathExists(sP) then
  21.   s=RegReadValue(sP&sv1)
  22.   if UCase(s)="YES" then SetUIElement 1,true
  23.  else
  24.   Disable
  25.  end if
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  b=GetUIElement(1)
  33.  if b=true then
  34.   Call RegWriteValue(sp&sv1,"Yes",1)
  35.  else
  36.   Call RegWriteValue(sp&sv1,"No",1)
  37.  end if
  38. End Sub
  39.  
  40. Sub Plugin_Terminate 
  41. End Sub
  42.